home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / biz / demo / TurboCalc5.lha / TurboCalc / Fran軋is / ARexx / TurboCalc.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1998-04-15  |  1015 b   |  45 lines
  1. /**********************************************************
  2.  * Exemple d´un script ARexx pour TurboCalc © 1993 M. Friedrich
  3.  **********************************************************/
  4.  
  5. Options FailAt 0
  6. Options Results
  7.  
  8. /* Déterminer le port de TurboCalc */
  9. /*--------------------------*/
  10. ADDRESS TCALC
  11.  
  12. /* Enregistrer la position actuelle */
  13. /*--------------------------*/
  14. GETCURSORPOS
  15. oldpos = RESULT
  16. say "Le curseur se trouvait à la position" oldpos
  17.  
  18. /* Remplir la cellule A1 */
  19. /*--------------------*/
  20. PUT 10 A1
  21.  
  22. /* et la cellule A2 */
  23. /*--------------*/
  24. PUT 1.23 A2
  25.  
  26. /* Écrire une formule dans A3 */
  27. /*----------------------*/
  28. SELECTCELL 'A3'
  29. PUT '=A1+A2'
  30.  
  31. /* Vérifier le contenu de A3 : */
  32. /*-------------------------*/
  33. GETFORMULA
  34. say "Formule en A3 :" RESULT
  35.  
  36. /* Contenu (c-à-d résultat) de A3 */
  37. /*-------------------------------*/
  38. GETVALUE A3
  39. say "Résultat" RESULT
  40.  
  41. /* restaurer la position du curseur */
  42. /*--------------------------------*/
  43. SELECTCELL oldpos
  44.  
  45.